home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_2
/
scrbdr4c.zip
/
COMBINED.PTS
next >
Wrap
Text File
|
1992-02-16
|
1KB
|
42 lines
Since so many of you have requested that I let you in on how I arrive at
Combined Points in the TopTen Winners Bulletin, I am enclosing the
procedure that I use to determine the point values. It is all pretty
self-explanatory (even for the non-programmers), so I won't elaborate
further.
FUNCTION GetTotal(Game : GameRecord; x : byte) : integer;
VAR
Score : integer;
BEGIN
Score := 0;
CASE Game.Players[x].Score OF {All Players Get Points}
400..999 : Score := 7; {Based on their Score }
350..399 : Score := 6;
300..349 : Score := 5;
250..299 : Score := 4;
200..249 : Score := 3;
150..199 : Score := 2;
100..149 : Score := 1;
END;
IF Game.Players[x].Win THEN {The Winner gets Extra Points}
BEGIN
CASE Game.Players[x].Moves OF {based on number of moves, }
0..5 : inc(Score, 6);
6..10 : inc(Score, 5);
11..15 : inc(Score, 4);
16..20 : inc(Score, 3);
21..25 : inc(Score, 2);
26..30 : inc(Score, 1);
END;
CASE Game.NoPlayers OF {plus, number of players in game}
4 : inc(Score, 3);
3 : inc(Score, 2);
2 : inc(Score, 1);
END;
END;
{ Also - 5 EXTRA Points awarded for any BINGOS - Any Player }
GetTotal := Score;
END;